home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
551-575
/
disk_563
/
m2midi
/
midisupport.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
38 lines
(***************************************************************************
:Program. MidiSupport.def
:Author. Jürgen Zimmermann
:Address. Ringstraße 6, W-6719 Altleiningen, Germany
:Phone. 06356/1456
:ShortCut. [JnZ]
:Support. -
:Version. 1.1
:Date. 8. May 1991
:Copyright. PD
:Language. MODULA-2
:Translator. M2Amiga 4.0d
:Contents. Modula-2-implementation of the original "C-Midi-Macros"
:Contents. "midi.library" of Fish 227, c-functions in "MidiSupport"!
:Imports. "midi.library" V2.0 in the LIBS:-directory
:Remark. I want to get into contact with other users of the
:Remark. "midi.library" or MIDI-programmers.
:Remark. (If you have a new version of the library, please send
:Remark. it to me!)
:Usage. described in the documents of "midi.library"
****************************************************************************)
DEFINITION MODULE MidiSupport;
PROCEDURE MidiHiByte(data: CARDINAL): SHORTCARD;
PROCEDURE MidiLoByte(data: CARDINAL): SHORTCARD;
PROCEDURE MidiWord(hi,lo: SHORTCARD): CARDINAL;
PROCEDURE SplitMidiID( id : LONGCARD;
VAR id0,id1,id2: SHORTCARD);
PROCEDURE MakeMidiID(id0,id1,id2: SHORTCARD): LONGCARD;
END MidiSupport.